a 


Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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mM 1 


eet 
FFFFFFFFFE © 000000 RRRRRRRR UU UU DDDDDDDD -FFFFFFFFFF WW WW UU UU 
FFFFFFFFFF | Q00000 RRRRRRRR UU UU DDDDDDDD FFFFFFFFFF WW WW UU UU 
FF 00 00 RR RR UU UU DD DD FF WW WW UU UU 
FF 00 00 RR RR UU UU DD DD FF KW Ww UU UU 
FF 00 RR RR UU UU DD DD FF WW WW UU UU 
FF 00 00 RR RR UU UU DD DD FF WW Ww UU UU 
FFFFFFFF © 00 OO RRRRRRRR UU UU DD DD FFFFFFFF = WW WW UU UU 
FFFFFFFF © 00 OO RRRRRRRR UU UU DD FFFFFFFE © WW Wd UU UU 
FF 00 00 RR RR UU UU DD DD FF WW Ww Ww UU UU 
FF 00 00 RR RR UU UU DD FF WW WW Ww UU UU 
FF 00 RR =RR- UU UU DD DD FF WWW WWW UU UU cu 
FF 00 OO RR RR WU UU DD DD FF WWW WWW UU UU Gnas 
FF 000000 =—sRR RR UUUUUUUUUU DDDDDDDD FF WW WW = UUUUUUUUUU naan 
FF 000000 ~=—s RR RR UUUUUUUUUU DDDDDDDD =F Wid WW = YUUUUUUUUU san 
LL eee SSSSSSSS 
LL eeeee SSSSSSSS 
LL II SS 
LL 1] S$ 
LL 1] SS 
LL 1] SS 
LL 1] SSSSSS 
LL II SSSSSS 
LL 1] SS 
LL 11 SS 
LL 11 $5 
LL Il $$ 
LLLLLLLLLL © S31T11 = SSSSSSSS 
LLLLLLELLE «= sGIITII «= SSSSSSSS 
| 
L 


i 
—_— 


N 1 

| FORSSUDF _WU 16-Sep-1984 00:55:07 AX-11 Bliss-32 V4.0-74 Page | 

13-80 8=13Re 99333:95 FORRTL_SRC IF ORUDFWU.B3 31 ° (1) | 

£ 1 001 MODULE FORSSUDF WU ( ' FORTRAN Write unformatted UDF | ; 
; ¢ Oe ww = '1-012' ' File: FORUDFWU.B Edit: JAW1012 ‘ 
tae Be ie fae | 
: § B08 : PITTIITILITILILIL ITIL LILI i Lit Li tiilitititiiiiiitili titi titi itil. : 
: 'e * 5 
3 8 0008 1 '* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY - 3 
3 S 009 1 '* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * : 
; + Bi9 : ALL RIGHTS RESERVED. _ ; 
: 1g Ore 1 it THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ; 
8 1 1 1 '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 
3 14 pote 1 !'* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * : 
; 15 015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY « ; 
3 16 B09 1 '® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ° 
; + sf ! = TRANSFERRED. * 3 

'® * 3 
; 19 Hits 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TG CHANGE WITHOUT NOTICE * ; 
4 $9 0020 1 '* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ; 
; $! Boe) : ° CORPORATION. * 3 
'e * 3 

: 38 isk 1 !'* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
: 4 Bose 1 '@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ; 
ee; 0025 1 !* * : 
; @& 0097 1 !e a 5 
: eo? 00 7 1 LRA RARER EAA AOR AERA ERA EAE AAA AAA REEARAAEREEEE P+ 
s 0028 1 ; 
; 9 0029 1 !+4¢4 : 
3 ° 88 ; FACILITY: FORTRAN Support Library - not user callable : 
: 3¢ 005¢ 1 | ABSTRACT: ; 
‘So 0033 1! 3 
; 0034 1! This module implements FORTRAN Write unformatted 1/0 3 
; 35 0035 1! statements (sequential access - S, direct access - D, F 
; 36 0036 1! at the User data Formatter level of 5 
$ 37 0037 1! abstraction (UDF level is 2nd level). This module 3 
i 7» 0038 1! calls the appropriate write record : 
3 39 0039 1! routine * the record handling level of abstraction (REC 3 
3 re ne ! level is 3rd level) to write a record. : 
: ; Be§ : ENVIRONMENT: User access mode; reentrant AST level or not. 3 
: 44 9064 1 AUTHOR: Thomas N. Hastings; CREATION DATE: 20-Feb-77 | 3 
: 46 0046 1 ' MODIFIED BY: : 
: 67 047 1! Thomas N. Hastings, 12-Mar-77: Version 01 : 
: 648 9k 1! 01 - original : 
: 49 1! 0-4 = Removed parameters to record level routines JMT 17-OCT-77 3 
: $0 9050 1: 0-05 - Use FORSK_abcanod yz ase TERNAL LITERALS. TNH 27-Oct-77 | : 
: $1 51 1! 0- $ = Global rep ster CCB. JMT 8-Apr- | 3 
: 2g 26 1! 0- - Change REQUIRE files for VAX System build. DGP 28-Apr-78 3 
: 5 53 1! O- - Use JSB linkages. TNH 22-May- 3 
; 54 54 1 | 0-0) - PIC dispatch tables. TNH 7=June-78 | : 
; 55 1! 0-10 = Change f te name to FORUDFWU.8 H and Ghange the names of the 3 
: 56 056 1 | REQUIRE files similarly. JBS 14-NOV-78 
te. 0057 1 ! 1-001 = Update version number and copyright notice. JBS 16-NOV-78 

| 


DDD HEE EE EEE EEE TT 


Fleas HEsSort96e 90:85:07 YMCIY hisseaz y4sO-702 


3 8 p28 1! 1- § = Change REQUIRE file names from FOR... to a me Ay DEC-78 
3 9 0 1! 1- - ase references to 1/0 dipatch ee. 

; & 060 1 ! 1-004 = Change {3 etch tables references to Siguordes. “bee 11=-Dec-78 
; oF 061 1 ! 1-005 = Use 48-01 BUF “PTRs BUF _BEG, + “Ew, Rett HI GH 189 LUB. DGP 08-Jan-79 
; © b06¢ 1! 1- - Use ~bit ; ddresses for externais. 

3; § 065 1 ! 1-007 = Use language-specific dispatch alsi at subs 26-guN1979 

>; «6646 0064 1 ! 1-008 - Use ISB Sispeten, offset symbols. SBL 12-Jul - 

; & 0065 1 : 1-009 = Signal an orrer i f the record overflows and 1938 not 

>; 666 0066 1! segmented. FT1 Report #61 SBL 18-Sept-19 

3 Ig 0067 1 ! 1-010 = Implement unbuffered transfers for single-element Lists: if 

; «68 0068 1! foseret ype is not segmented and record size permits, set up 

; 69 0069 1! RAB so record will be yritten shu CbcRoys from element, and do 

;. 0070 1! not copy qienegs. to hy er. 

ES a 0071 1 ! 1-011 = Continuation 1-01 Simpl ity tests "in FORSSUDF _wWU1. 

Saee 0072 1! JAW 02-Jun-19 1 

ee 0075 1 ! 1-012 = Continuation of 1-010. Recast test in FORSSUDF WU1 for better 
oe | 0074 1! code. Remove unnecessary resetting of flag in FORSSUDF_Wwu9. 

;. 9 0075 1! JAW 06-Jun-1981 

; rf 0076 1 !-- 

“SES ka 0077 1 

3 78 0078 1 !<BLF/PAGE> 
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¢ 2 | 
DF wu 16-Sep-1984 00:55:07 — YAX=11 Bliss-32 v4.0-74 Page 3 
1e=$tp-1986 19:33:57 EPORRTL SRESFORUDFUU.639; 1 ~~, ea} 


; SWITCHES: 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
! 


LINKAGES: 


Oooooooco 
AAA MAA AVIMMVIVIVIVIVIO O OD OOD0O00O 


ODWWIPSPONINPUNYPPPONPY — — CW COCOCDCD CD CD CDOO ~ 


REQUIRE ‘RTLIN:OTSLNK'; 
' 


TABLE OF CONTENTS: 


Define all Linkages 


FORWARD ROUTINE 
FORSSUDF_WUO : JSB_UDFO NOVALUE, 
FORSSUDF_-WU1 : CALC_CCB NOVALUE, 
FORSSUDF_wWUu9 : JSB_ODF9 NOVALUE; 


initialization 
format one user 1/0 List element 
end of user 1/0 List - finish 


! INCLUDE FILES: 
i | 


REQUIRE ‘RTLML:FORERR'; 
REQUIRE ‘RTLML:OTSISB'; 


FORTRAN error codes 
1/0 statement block (ISB) offsets 


ONO OONAOUES WN“ OCWDOONG US WN OO 
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1 

1 

1 

1 

1 

1 

1 
1 768 
: a4 REQUIRE ‘RTLML:OTSLUB'; ! Logical unit block (LUB) | 
1 9910 REQUIRE 'RTLIN:OTSMAC'; ' Macros | 
‘ 113 REQUIRE "RTLIN:RTLPSECT'; ! Define DELCARE_PSECTS macro 
1 1201 REQUIRE "RTLIN:RTLODBG'; ! RTL debugging macros | 
1 1311 1 LIBRARY 'RTLSTARLE’; | 
1 1316 | 
1 131 ! 
1 1314 ' MACROS: 
1 1315 ! 
1 1316 ! 
: fae : EQUATED SYMBOLS: 

1 1318 ' all other FORTRAN data type codes are larger valued 

1331 PSECT DECLARATIONS: 

: : 28 DECLARE _PSECTS (FOR); ' declare PSECTs for FORS facility 
1 1325 i OWN STORAGE: 

1 1 § ! 

1 1 : None 

1 1 $ ! 

: ' Fs EXTERNAL REFERENCES: 

1 1331 : 


lad 
“§ 
's 


Sep-1984 12:32:57 — ErORRTL SRE SFORUDFUU.039; 1 


FORSSAA REC PRO : 


FORSSAA_REC_PR1 : 


FORSSAA_REC_PRO : 


EXTERNAL ROUTINE 
FORSSSIGNAL_STO : 


tt dt a 
WON E ES BELLE LEE 


WN OO OONOUS WN —"O0OO~ 
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PIC array of record processor 
rocedure-initializations _ Ba 

evel of a ot ob ata | Index by 

‘i? etacenens type (1SB$B8_ stim. YPE) 
he array of record processor | procedures 

te a record in REC level 

abstraction. jodened by 1/0 statement 
bype (ISBSB_STTM_TYPE) 

PIC array of record processor procedures 


Write last record in —y tevet of 


abstraction. Indexed 
statement type (1SB$B_ LM. TYPE) 


Signal fatal error 
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FORRTL.SRCJFORUDFWU.B32;1 (3). 


; 155 1349 1 GLOBAL ROUTINE FORSSUDF_wu0 Write unformatted UDF initialization ‘ 
; 5 ° 1350 1 : JSB_UDFO NOVALUE = ° 
s ¥ 1351 1 ° 
: 158 1 ¢ 1 !+4 ° 
; 1? } 7 ; FUNCTIONAL DESCRIPTION: ‘ 
3 19) 1 22 } Initialize Write unformatted User data formatter (UDF) ; 
: 188 1 2 1! CALLING SEQUENCE: ‘ 
> 164 1358 1! ° 
; 165 1359 1! JSB FORSSUDF _WU0 () ° 
: 166 1360 1! ° 
: 167 1361 1 | FORMAL PARAMETERS: ; 
> 168 1 $6 1! ‘ 
: 169 1365 1! None. ° 
; 17 1364 1! ° 
; 7 1365 1 ! IMPLICIT INPUTS: ° 
3 \7¢ 1 $8 a . 
Bele 1367 1! CCB Pointer to current logical unit block : 
: 174 1368 1! ISBSB_STTM_TYPE 1/0 statement type code - set by ° 
: Hy & 1398 } } each 1/0 statement initialization ‘ 
; 179 ata 1 ! IMPLICIT OUTPUTS: ‘ 
; 178 1 if - ‘ 
; 7 is7> 3! LUBSA_BUF __PTR Adr. of next byte of output : 
; 180 1374 1! data buffer ‘ 
: + 2 : p : } LUBSA_BUF _END Adr. of end+1 byte position of output buffer ; 
; 185 1377 1 ! ROUTINE VALUE: ; 
; (184 1378 1 ! COMPLETION CODES: : 
; «185 1379 1! : 
: «186 1380 1! NONE : 
: «187 133) 1! ; 
; 188 1 Be 1 ' SIDE EFFECTS: | : 
; «189 1383 1! ‘ 
: 190 1384 1! NONE . 
: «191 1385 1! : 
3 136 1386 1 !-- : 
; 1387 1 : 
3 194 1388 5 BEGIN : 
: «195 1389 ° 
: 196 1390 EXTERNAL REGISTER | : 
s; it 1391 CCB : REF BLOCK C, BYTE); : 
; 198 1336 | : 
3; 199 139 '¢ : 
: 200 1394 ! Initialize Record processing levet of abstraction. : 
3; 201 1395 ! Set pointer to current (LUBSA_BUF_PTR) and last+1 | : 
3 Oe 1396 ! (LUBSA_BUF_END) character position for user data in : 
: 20 1397 ! output’ buffer : 
BE eee oe 
> 206 1400 JSB_RECO (FORSSAA_REC_PRO + .FORSSAA_REC_PRO C.CCB CISBSB_STIM_TYPE) - ; 
; eur 1401 ISBSK_FORSTTYLO # 1)); $ 
; 208 1386 : 
: 209 140 RETURN; : ° 
: 210 1404 END; ! End of FORSSUDF_WU0 routine ; 


2s 
FORSSUDF _wWU 16-Sep-1984 00:55:07 VAX=-11 Bliss-32 V4.0-742 Page 6 
1-012 14-Sep-1984 99:33:99 CFORRTL.SRCJFORUDFWU.B32;1 . (3), 
TITLE FORSSUDF_ WU 
-IDENT \1-012\ 
-EXTRN FORSSAA_REC_PRO 
~EXTRN FORSSAA_ REC_ “PRI 
«EXTRN FORSSAA_REC-P 


PRO 

-EXTRN FORSSSIGNAL_STO 
-PSECT _FORSCODE,NOWRT, SHR, PIC,2 
50 FF71 CB 9A 00000 FORSSUDF_wuUO0:: 
MOvVZBL 


-143(CCB), RO ; 1401 
50 0000000060040 00 00005 MOVL FORSSAA_REC_PR orn}. RO ; 1400 
0000000060040 17 0000D JMP FORSSAA_REC_PROLROJ : 


; Routine Size: 20 bytes, Routine Base: _FORSCODE + 0000 


; au 1405 1 


FORSSUDF _WU 
1-012 
313 406 GLOBAL ROUTINE FORSSUDF_WU1 ( 
14 40 _TYPE, 
215 408 ELEM_SIZE, 
gig 409 ELEM ADR) 
17 410 : CALL_CCB NOVALUE = 
$i 411 
19 tig ++ 
3) 41 FUNCTIONAL DESCRIPTION: 
iB i 
22 416 
é 4 617 
5 416 
226 419 
e? 4 
28 4 
29 4 
30 4 
31 
3 ! 
3 CALLING SEQUENCE: 


FORMAL PARAMETERS: 
ELEM_TYPE.rlu.v 


ELEM_SIZE.rlu.v 


{ 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i] 
i 
] 
i 
i 
i 
i 
i 
i 
i 
i 
ELEM_ADR.rx.r 
i 
i 
i 
i 
i 
i 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
! 


IMPLICIT INPUTS: 
OTS$$A_CUR_LUB 


1SBSB_STTM_TYPE 
1SB$V_SNGL_ELEM 


LUBSA_BUF _PTR 

LUBSA_BUF _END 
IMPLICIT OUTPUTS: 

I1SB$V_SNGL_ELEM 


Ww 
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1ges6 -1984 00:55:07 AX-11 Bliss-32 V4.0-74 
12-9 08- 1 3be 99 :33:9) FORRTL.SRCIFORUDFUU.B3 37 
' Copy one user output element 
Type code of user 1/0 List element 


No. of addressable units in element 
! Adr. of element 


FORSSUDF_WU1 copies a single user 1/0 List element 

and piecte it in the current output buffer. 

If the entire user element will not fit in the buffer, 
only part if copied and the buffer is output by calling 
the proper record level (3rd level of abstraction). 


If an unbuffered transfer is possible, no data is copied, and 
the RAB is set up to point to the element itself. 


FORSSUDF_WU is the same for all access modes. 


CALL FORSSUDF_WU1 (elem_type.riu.v, elem_size.rlu.v, elem_adr.rx.r) 


Type code of user 1/0 List 

element. Form: ELEM_TYPE_x 

x = B,W,L,WU,LU,F,D,FC,T,G.H,DC or GC. 
Size of user 1/0 list element 

in addressable machine units 

Adr. of user 1/0 List element 

x = b, Ww, ¥ wu, lu, t; d, 6: . 

g. h, de or ge. 


Pointer to current logical unit block 
(LUB). Used to setup base goceeer ISB 

to current 1/0 statement block 

1/0 statement type code - set by each 
1/0 eyatqnens initialization 

Flag indicating that this element is the 
only element in the current 1/0 List. 


The following ISB locations are set only 4 previous calls to 
FORSSUDF _WUC{0,1), i.e., are effectively OWN. 


Pointer to next char. position 
in user data pert of output buffer 
Adr. of last+l byte position of output buffer 


This flag is cleared if an unbuffered 
transfer is not possible. 


H 2 
FORSSUDF _WU 16-Sep-1984 00:55:07‘ VAX*11 Bliss-32 v4.0-74 > 8 
1-012 ae ets A ee ce hd pt a oF 4} 


: 270 1463 1! The fot lowing }38 locations are set only by previous calls ; 
; f hc; : ; to FORSSUDF _#Ut0,1}, i.e., are effectively OWN. ‘ 
; e7 re « 1} LUBSA_BUF _PTR Pointer to next char. position ‘ 
3 a Met : } in user data part of output buffer : 
: ar8 1492 1 ! FUNCTIONAL VALUE: : 
° i 1470 1! : | . 
: 278 1471 1! NONE ; 
, ary ang 13 ’ 
3; 280 1475 1°! SIDE EFFECTS: ; 
5s ehh 1474 1! ; 
3 282 re ’ SIGNAL_STOPs FORS_OUTSTAOVE (Output statement overflows record) : 
; 284 1477 1 : 
: See 1478 BEGIN 

: 286 1479 

3 ger 1480 EXTERNAL REGISTER 

: 288 1481 CCB : REF BLOCK C, BYTE); 

; 289 et 

; 290 148 '¢ | 

; 291 1484 ! If this is a am th hoy ney List, check to see if the conditions 

; 44 1485 : for an unbuffered transfer are met. If so, set RABSL_RBF and 

; 1486 ! RABSW_RSZ to point Sivestty to the element, and return leaving 

; 294 1487 i ISBSVISNGL_ELEM set as an indication to REC level not to change 

; ave 1488 ! them. Otherwise clear ISBSV_SNGL_ELEM and proceed normally. 

; 296 1489 fe 

; 297 1490 

; 298 1491 2 IF .CCB CISBSV_SNGL_ELEM] 

3 $30 re THEN | 

: 300 149 IF NOT .CCB CLUBSV_SEGMENTED] AND | 

; 301 1494 (IF_.CCB CLUBSV_FIXED] THEN .ELEM_ SIZE EQLU .CCB CLUBSW_RBUF_SIZE] 

; 1495 ELSE .ELEM_SIZE LSSU .CCB CLUBSW_RBUF_SIZEJ) 

3 209 1496 § 

; 304 1497 N | 

; 305 1498 ; CCB CRABSL_RBFJ = .ELEM_ADR; 

> 306 1499 CCB CRABSW-RSZ) = .ELEMTSIZE; | 

; 27 1500 : RETURN; 

; 308 1501 END 

; 309 1208 ELSE 

: 310 150 CCB CISBSV_SNGL_ELEM) = 0; 

: $3 1504 

3 i 1505 BEGIN 

g 3 1306 

3: «4314 15 LOCAL 

; 315 1508 TMP_ELEM_SIZE, ' temp no. ob bytes left in user element to copy 

; 316 1509 TMP_ELEM_ADR, ! temp adr. of rest of user element to copy 

; + 1319 TMP_DIFF; ! temp. no. of bytes to move each time in loop 

: 19 1216 '¢ ‘ 

s; fee 151 ! If the record will overflow, write as much as will fit. If this 

3 «Sel 1514 ! is done, and the file is not SEGMENTED, then error FORS$_OUTSTAOVE. 

; $¢ 131? } If segmented, continue writing records until overflow i§ removed. 

: $2 1819 

R- oe 1518 TMP_ELEM_SIZE = .ELEM_SIZE; 

; 326 1519 TMP~ELEM_ADR = .ELEM_ADR; 


2 
FORSSUDF _WU 1h-sep-1984 00:55:07 VAX"11 BLiss-32 v4.0-74 2 9 
1-01 eet) PAR Se a Pe ee og ea ee 445) 


2 
3 7 1 0 ; 
: § 1 ; WHILE, .CCB CLUBSA_BUF_PTR] + .TMP_ELEM_SIZE GTRA .CCB CLUBSA_BUF_ENDJ DO 
: 0 12 : 4 TMP_DIFF = CCB rages BUF_END] - .CCB CLUBSA_BUF_PTR] 
: 1 15204 4 CCB-CLUBSA_BUF _PTR) = CHSHOVE  ( (.TMP_DIFF, .TMP_ELEM_ ADR, .CCB CLUBSA_BUF_PTR]); 
; ; 1525 4 TMP_ELEM_ STi = M_SIZE - .TAP DIFF: 
i 333 3 $ 4 TMPELEM~ADR = inp mith ROR + .THP "DIF 
; 5 13 8 4 JSB_REC1 (FORSSAA_REC_PR1 + .FORSSAA_REC_ PRI abi CCB ee S888 ST] TH TYPE - | 
3 ; i 1330 4 1F NOT .CCB CLUBSV_ SEGMENTED] : | 
: NAL_ K_OU VE); 
38 1532 4 FORSSSIGNAL_STO (FORSK_OUTSTAOVE) 
; 340 15 END; 
EO . 
3 + 
3 rk 1536 i Copy the remainder of the user element that will fit into the output buffer | 
; 3s 133% a Update buffer pointer (LUBSA_BUF_PTR) to point to last byte+1 moved. | 
: 346 1539 
: 347 1540 CCB CLUBSA -BUF_PTR] = CHSMOVE (.TMP_ELEM_ SIZE. .TMP_ELEM_ADR, .CCB CLUB$A_BUF_PTRI); | 
3 +8 134) 3 _ RETU T Return from FORSSUDF_ _WF1 routine 
3; 550 1328 1 END; ! End of FORSSUDF_WU1 
O3FC 00000 .ENTRY FORSSUDF WU1, Save R2,R3,R4,R5,R6,R7,R8,R9 ; 1406) 
59 000000006 00 9E 00002 MOVAB FORSSAA_REC PRI, RO ; | 
2D 97 AB 04 £1 00009 BBC = #4, =105(CCB), 4s > 1491 | 
24 FD AB 03 £0 00005 BBS #3. ~3( CCB), $$ : 1493 
0B FD AB 02 £1 0001 BBC e. -3(CCB), 1$ + 1494 
08 ac D2 AB 10 00 ED 00018 CMPZV ; #16, -46(CCB), ELEM_SIZE : 
16 12 OO001F BNEQ ; 
09 11 00021 BRB 2$ : 
08 Ac D2 AB 10 00 £0 990 318 CMPZV #0, #16, -46(CCB), ELEM_SIZE : 1495 | 
0B 1B O002A BLEQU : 
28 «AB 0c AC DO 0002C 28 MOVL ELEM_ADR 49¢¢cB) + 1498 
22. AB 08 ac BO 00 1 MOVW  ELEMSIZE, 34(CCB) + 1499 
4 90 RET : 1497 
97 10 8A 00037 38: BICB2 #16, -105(CCB) : 1503. 
2 98 AC D9 99 4s: MOVL ELEM_SIZE, TMP_ELEM SIZE : 1318 
2 eh F MOVL. € ER ADR, TMP_ELEM_ADR : 151 
50 58 BO AB C1 0043 5$: ADDL3 -80(CCB), TMPTELEM~SIZE, RO : 1521. 
B4 AB 3 D1 0048 CMPL R , ~76¢€CB) F 
56 B4 ag BO AB g Socg suBLS -80(CCB), -76(CCB), TMP_DIF : 1523, 
B0 6 ¢ 4 MOVC THP DIFF (TMP_ELEM_ADRJ, a 80(CCB) > 1524 
B0 D 9 MOVL. R3,~=80(éCB) : | 
6 ¢ UBL 2 TMP_DIFF, TMP_ELEM_SIZE > 1525 | 
6 § 0 ADDLe TMP"DIFF, TMPTELEM— : 1526 | 
: FF71 CB 9A 0006 MOVZBL -143(CCBS, RO > 1529 | 
6940 DO MOVL FORSSAA_REC_PRIERO], RO : 1§28 
694 1 6C JSB FORSSAA REC-PRICR ; 
CF FD AB 03 £0 0006F BBS #3, -3(CCB)> 5$ ; 1530. 


opts UOF wu iS “$2071 944 RR Lan CCL athe One 
000000006 66 8 18 CALL : i. * FORSSSIGNAL_STO 
BO 6B 67 1 6$: MOVC3 up fea ttad site. (TMP_ELEM_ADR), @-80(CCB) 
BO AB iy OB Hy 


; Routine Size: 139 bytes, Routine Base: _FORSCODE + 0014 


3; 351 1544 1 


oi LT ee | 


kK R 
Sep-19 7 AX-11 Bliss-32 V4. Pa 
12-8 Sep 1383 99: 33; 9g AORRTL SRE a FORUDE ON. 03 B32;1 23 G 
GLOBAL ROUTINE FORSSUDF _WU9 ! unformatted output - end of 1/0 List call 
JSB_UDF NOVALUE = 


FC 


wee 


ee 


+ 


+ 
FUNCTIONAL DESCRIPTION: 
FORSSUDF _WU9 performs end of 1/0 List output formatting. 


IWIN AAA 
OOo 
—"OOONOUSW 


; 1545 1 ; 
; 1 46 1 : 
3 1547 1 : 
; 1548 1 F 
: 1549 1! 5 
; 1550 1! : 
; 1991 34 ; 
: 360 1 26 2 ; 
: ? 132? : CALLING SEQUENCE: : 
; e§ 1955 1 | JSB FORSSUDF_WU9 () 
; 65 1387 i FORMAL PARAMETERS: 
: 367 1559 1 | NONE ; 
; 368 1560 1! ; 
; 369 1361 { IMPLICIT INPUTS: ; 
; 371 1368 ; See FORSSUDF_WU1 ; 
; 375 1565 1! : 
3 38 1366 i | IMPLICIT OUTPUTS: ; 
; 376 1368 | ; See FORSSUDF_WUl : 
; 378 1320 ; FUNCTION VALUE: : 
: 380 1372 1 | NONE 
; 381 1573 1! ; 
; 382 137% i SIDE EFFECTS: ; 
; 384 1326 See FORSSUDF_WU1 r 
: 386 1578 1— ; 
; 387 1579 2 BEGIN : 
; 388 1580 3 
; «389 1581 EXTERNAL REGISTER : 
; 90 1388 CCB: REF BLOCK C, BYTE); ; 
: 39 1584 '¢ ; 
3 Be 1383 : Call record level of abstraction to output buffer from beginning up to but not including LUBSA_BUF _PTR : 
: 395 1587 
: 396 1588 JSB_RECO (FORSSAA_REC_PRO + .FORSSAA_REC_PRO C.CCB CISB$B_STITM_TYPE) - ; 
: id 138? ISB$K_FORSTTYLO # 13); : 
: 399 1591 RETURN; : 
; 400 1592 END; ! End of FORSSUDF_WU9 Routine ; 


50 FF71 CB 9A 00000 FORSSUDF U9: : 


50 goopp9ggcnns9 90 gongs UWL FORESAA REC“ Pagtngy no : 1388 


fORSSUDE wu 1$-$60-1984 00:55:07 yaKat1 Blisg=32 v4.0-742 | Page 


; Routine Size: 20 bytes, Routine Base: _FORSCODE + 009F 


rh 1232 | en | End of FORSSUDF_WU Modul 
208 1895 1 pet "dh seta 
1596 OF 


PSECT SUMMARY 
Name Bytes Attributes 
_FORSCODE 179 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


oosee wee Syabols ocooesee Pages Processing 
File Total Loaded Percent Mapped me 
_$255$DUA28: CSYSLIBISTARLET.L32;1 9776 2 0 581 00:01.1 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:FORUDFWU/OBJ=0BJ$:FORUDFWU MSRC$:FORUDFWU/UPDATE=(ENHS$: F ORUDF WU) 
179 618.3 + 0 data bytes 


Size: 

Run “Time 

ie Hines 

Lines/CPU het ise” 

ey A i 37523 
"Y Used: "ig pages 

—_ ation Complete 


T CORPORATION 
PROPRIETARY 


018 AH-BT13A-SE DIGI 
VAX/VMS V4.0 CONF 


